home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Games / SFCONSET.SDA / SFC SETUP (.txt) < prev   
Encoding:
Commodore BASIC  |  2019-04-13  |  1.3 KB  |  44 lines
  1. 5 IFPEEK(653)=1THENPRINT"PRESS SHIFT LOCK/RELEASE SHIFT KEY":GOTO5
  2. 7 POKE53280,0:POKE53281,0
  3. 8 FORG=1TO15:CLOSEG:NEXTG
  4. 10 PRINT"[147][155][211]TAR [198]RONTIER [211]ETUP [214]ERSION 1.1C"CHR$(8)
  5. 11 PRINT"[195]REATED BY: [211]ETH [200]OPKINSON"
  6. 15 PRINT"[154][213]SE [150][195][210][211][210][154] KEYS TO SELECT DRIVE TYPE,"
  7. 20 PRINT"[150][210][197][212][213][210][206][154][160]TO SELECT & BOOT [211][198] [195]ON [211]ET."
  8. 30 PRINT"   [156][196]EFAULT"
  9. 35 PRINT"   1541 OR COMPATIBLE"
  10. 40 PRINT"   1571 DOUBLE SIDED"
  11. 45 PRINT"   1571-41 FRONT SIDE (HEAD 0)"
  12. 50 PRINT"   1571-41 BACK SIDE (HEAD 1)"
  13. 55 PRINT"   1571 IN 1541 MODE"
  14. 60 L=7:M=12:X=7:OX=M+1
  15. 70 A=X:GOSUB200:PRINT"[158][186]"
  16. 75 GETA$:IFA$=CHR$(145)THENX=X-1
  17. 80 IFA$=CHR$(17)THENX=X+1
  18. 81 IFA$=CHR$(13)THEN115
  19. 85 IFOX=XTHEN75
  20. 90 A=OX:GOSUB200:PRINT" "
  21. 95 IFX>MTHENX=M
  22. 100 IFX<LTHENX=L
  23. 105 A=X:GOSUB200:PRINT"[158][186]"
  24. 110 OX=X:GOTO75
  25. 115 X=(X-L)+1:DC$="?":D2$="?":ONXGOTO120,125,135,140,145,130
  26. 120 DV$="DEFAULT":GOTO150
  27. 125 DC$="I:":DV$="1541":GOTO150
  28. 130 DC$="U0>M0":DV$="1571SNGL":GOTO150
  29. 135 DC$="U0>M1":DV$="1571DBL":GOTO150
  30. 140 DC$="U0>M0":D2$="U0>H0":DV$="1571HD0":GOTO150
  31. 145 DC$="U0>M0":D2$="U0>H1":DV$="1571HD1"
  32. 150 PRINT"[147][150]"DV$:OPEN15,8,15,"S:SFC CONFIG":INPUT#15,E,E$,T,S:IFE>1THEN210
  33. 155 CLOSE15:OPEN5,8,5,"SFC CONFIG,U,W"
  34. 160 PRINT#5,DC$:PRINT#5,D2$:PRINT#5,DV$
  35. 165 CLOSE5
  36. 170 PRINT"[147]LOAD"CHR$(34)"BOOT SFCS"CHR$(34)",8
  37. 175 [153]"RUN"[199](142)
  38. 180 [151]198,3:[151]631,19:[151]632,13:[151]633,13:[162]
  39. 200 [151]781,A:[151]782,1:[158]65520:[142]
  40. 210 [153]"(null)NABLE TO SAVE SETUP BECAUSE OF VAL(null)(null)(null)(null):"
  41. 215 [153]E,E$,T,S:[151]53280,2:[128]
  42. 250 [159]15,8,15,"S:SFC SETUP":[160]15:[148]"SFC SETUP",8
  43. 255 [149]"SFC SETUP",8
  44.